(defun ask-number ()
	(format t "Please enter a number. ")
	(let ((val (read)))
		(if (numberp val)
			(format t "You have input a valid number: ~A" val)
			(ask-number))))
